home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / capture.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  3.7 KB  |  164 lines
  1. 100  CLS
  2. 110  A$=STRING$(80,205)
  3. 120  PRINT A$
  4. 130  PRINT TAB(23)"CAPTURE THE ENEMY SPACE SHIP #2005"
  5. 140  COLOR 23,0,0
  6. 150  PRINT :PRINT :PRINT TAB(39)"IPCO"
  7. 160  COLOR 7,0,0
  8. 170  PRINT :PRINT :PRINT TAB(25)"PERSONAL COMPUTER OWNERS GROUP"
  9. 180  PRINT :PRINT :PRINT TAB(19)"p.o. box 10426, pittsburgh, pennsylvania 15234"
  10. 190  PRINT A$
  11. 200  PRINT :PRINT :PRINT :PRINT :PRINT
  12. 210  PRINT TAB(28)"PRESS ANY KEY TO CONTINUE"
  13. 220  A$=INKEY$:IF A$="" THEN 220
  14. 230  CLS
  15. 240  KEY OFF
  16. 250  CLS
  17. 260  RANDOMIZE
  18. 270  CLS: CLEAR 500: CR$=STRING$(5,140)+CHR$(143)
  19. 280  F$="###.##"
  20. 290  PRINT TAB(26)"******* *** ***** ***** ****"
  21. 300  PRINT TAB(26)"CAPTURE THE ENEMY SPACE SHIP"
  22. 310  PRINT TAB(26)"******* *** ***** ***** ****"
  23. 320  PRINT TAB(22) "ENTER YOUR NAME FOR GALACTIC RECORDS"
  24. 330  INPUT A$
  25. 340  DIM Q(9,9)
  26. 350  S=25
  27. 360  PRINT :PRINT :PRINT :PRINT :PRINT :INPUT "DO YOU NEED INSTRUCTIONS(Y OR N)";I$
  28. 370  IF LEFT$(I$,1)="Y" THEN 380 ELSE GOTO 560
  29. 380  CLS
  30. 390  PRINT TAB(26) "CAPTURE THE ENEMY SPACE SHIP"
  31. 400  PRINT TAB(26) "******* *** ***** ***** ****"
  32. 410  PRINT :PRINT
  33. 420  PRINT "YOUR  MISSION  COMMANDER  "A$;"  IS  TO CAPTURE AN ENEMY BATTLE VESSEL.     "
  34. 430  PRINT "YOU  MUST NOT  DESTROY THE ENEMY, YOU MUST TAKE HIM ALIVE.  TO EFFECT A CAPTURE, "
  35. 440  PRINT "YOU  MUST  DESTROY  ALL REGIONS AROUND IT.  YOUR SHIP'S BATTLE-DEFENCE COMPUTER "
  36. 450  PRINT "WILL KEEP UP TO DATE ON THE ENEMY`S LAST POSITION.                      "
  37. 460  PRINT :PRINT
  38. 470  PRINT "THERE  IS  ALSO  A  PROTECTED  AREA   USING   THE  AXES  X=1 AND Y=1 SO THAT THE"
  39. 480  PRINT "ALIEN  HAS A  CHANCE IF YOU FIRE INTO THIS REGION, IT IS THE SAME AS FIRING INTO"
  40. 490  PRINT "A PREVIOUSLY DESTROYED AREA!!!"
  41. 500  PRINT :PRINT :PRINT TAB(25)"GOOD LUCK COMMANDER ";A$;"!!"
  42. 510  PRINT
  43. 520  PRINT "PRESS ANY KEY TO CONTINUE."
  44. 530  IF INKEY$="" THEN 530 ELSE CLS
  45. 540  PRINT
  46. 550  PRINT
  47. 560  CLS
  48. 570  S=25
  49. 580  CLS
  50. 590  PRINT TAB(20)"COMMANDER ";A$;" YOU HAVE ";S;"SHOTS"
  51. 600  FOR X=1 TO 9
  52. 610  FOR Y=1 TO 9
  53. 620  Q(Y,X)=0
  54. 630  Q(1,X)=-1
  55. 640  Q(9,X)=-1
  56. 650  Q(Y,1)=-1
  57. 660  Q(Y,9)=-1
  58. 670  NEXT Y
  59. 680  NEXT X
  60. 690  X=INT(10*RND)
  61. 700  IF X<1 THEN 690
  62. 710  IF X>8 THEN 690
  63. 720  Y=INT(10*RND)
  64. 730  IF Y<1 THEN 720
  65. 740  IF Y>8 THEN 720
  66. 750  PRINT
  67. 760  PRINT "ENEMY'S LAST KNOWN POSITION"
  68. 770  PRINT "SECTOR";X;",";Y
  69. 780  PRINT
  70. 790  IF S<0 THEN 1620
  71. 800  C=X
  72. 810  D=Y
  73. 820  A=INT(10*RND)
  74. 830  IF A<C THEN 850
  75. 840  GOTO 860
  76. 850  X=X-1
  77. 860  IF A>C THEN 880
  78. 870  GOTO 890
  79. 880  X=X+1
  80. 890  IF X<1 THEN 910
  81. 900  GOTO 920
  82. 910  X=1
  83. 920  IF X>8 THEN 940
  84. 930  GOTO 950
  85. 940  X=8
  86. 950  A=INT(10*RND)
  87. 960  IF A<D THEN 980
  88. 970  GOTO 990
  89. 980  Y=Y-1
  90. 990  IF A>D THEN 1010
  91. 1000  GOTO 1020
  92. 1010  Y=Y+1
  93. 1020  IF Y<1 THEN 1040
  94. 1030  GOTO 1050
  95. 1040  Y=1
  96. 1050  IF Y>8 THEN 1070
  97. 1060  GOTO 1080
  98. 1070  Y=8
  99. 1080  IF Q(Y,X)<>-1 THEN 1120
  100. 1090  X=C
  101. 1100  Y=D
  102. 1110  GOTO 820
  103. 1120  FOR A=1 TO 8
  104. 1130  FOR B=1 TO 8
  105. 1140  IF Q(B,A)=0 THEN 1160
  106. 1150  GOTO 1170
  107. 1160  PRINT " ";"*";
  108. 1170  IF Q(B,A)=-1 THEN 1190
  109. 1180  GOTO 1200
  110. 1190  PRINT " ";" ";
  111. 1200  NEXT B
  112. 1210  PRINT " ";A
  113. 1220  NEXT A
  114. 1230  PRINT   " 1 2 3 4 5 6 7 8"
  115. 1240  PRINT
  116. 1250  A=INT(10*RND)
  117. 1260  IF A>4 THEN 1320
  118. 1270  PRINT "COMMANDER ";A$;" YOU HAVE BEEN ATTACKED AND SOME OF YOUR PRECIOUS ENERGY HAS"
  119. 1280  PRINT "BEEN USED TO REPLENISH THE SHIELDS.."
  120. 1290  S=S-1
  121. 1300  PRINT "COMMANDER ";A$;" ONLY ";S;" SHOTS REMAIN"
  122. 1310  PRINT
  123. 1320  A=INT(10*RND)
  124. 1330  IF A<9 THEN 1450
  125. 1340  A=INT(10*RND)
  126. 1350  IF A=X THEN 1340
  127. 1360  IF A<1 THEN 1340
  128. 1370  IF A>8 THEN 1340
  129. 1380  B=INT(10*RND)
  130. 1390  IF B=Y THEN 1380
  131. 1400  IF B<1 THEN 1380
  132. 1410  IF B>8 THEN 1380
  133. 1420  Q(B,A)=-1
  134. 1430  PRINT "NOVA IN SECTOR ";A;" , ";B
  135. 1440  PRINT
  136. 1450  PRINT "ENTER YOUR PHASOR SHOT (X,Y)";
  137. 1460  INPUT A,B
  138. 1470  S=S-1
  139. 1480  IF A=X THEN 1650
  140. 1490  IF B=Y THEN 1650
  141. 1500  IF Q(B,A)=-1 THEN 1700
  142. 1510  Q(B,A)=-1
  143. 1520  FOR A=X-1 TO X+1
  144. 1530  FOR B=Y-1 TO Y+1
  145. 1540  IF A=X THEN 1570
  146. 1550  IF B=Y THEN 1570
  147. 1560  IF Q(B,A)<>-1 THEN 750
  148. 1570  NEXT B
  149. 1580  NEXT A
  150. 1590  PRINT:PRINT:PRINT "GOOD SHOW COMMANDER ";A$;" YOU HAVE CAPTURED THE ALIEN ENEMY.."
  151. 1600  PRINT " AND YOU HAVE ";S;"SHOTS REMAINING"
  152. 1610  GOTO 1670
  153. 1620  PRINT:PRINT:PRINT "COMMANDER ";A$;" YOU HAVE NO MORE ENERGY FOR PHASORS...
  154. 1630  GOTO 1690
  155. 1640  PRINT :PRINT
  156. 1650  PRINT:PRINT:PRINT "COMMANDER ";A$;" SORRY, YOU JUST KILLED THE ALIEN AND YOUR MISSION WAS "
  157. 1660  PRINT "TO CAPTURE THE ENEMY SHIP AND NOT DESTROY IT.  TRY AGAIN.."
  158. 1670  PRINT :PRINT :PRINT :INPUT "DO YOU WANT TO PLAY AGAIN (Y or N)";G$
  159. 1680  IF G$="Y" GOTO 570
  160. 1690  IF G$="N" THEN 1720
  161. 1700  PRINT:PRINT:PRINT " COMMANDER ";A$;" YOU JUST FIRED ON A PREVIOUSLY DESTROYED AREA AND IN THIS GAME YOU DO NOT HAVE ANY PHASORS TO EXPEND UNWISELY..."
  162. 1710  GOTO 750
  163. 1720  CLS:PRINT:PRINT "THANK YOU FOR THE GAME AND I LOOK FORWARD TO PLAYING WITH YOU AGAIN."
  164.